home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00735_DE-RN maps.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  4.1 KB  |  108 lines
  1. on renseigne texte, stile, nCurs
  2.   set the text of cast "Zone Info" to " "
  3.   set the textStyle of field "ZONE INFO" to "plain"
  4.   set the textStyle of field "ZONE INFO" to stile
  5.   set the text of cast "Zone Info" to texte
  6.   curseur(nCurs)
  7. end
  8.  
  9. on exitFrame
  10.   global gLocLabel
  11.   go(label(gLocLabel))
  12. end
  13.  
  14. on idle
  15.   global gBarChron, gSurvolAct, gSurvolPrec, gListSuj, gMessDef1, gMaxBoutons, gEtaSpir, gMessSty1, g1erSprChr, g1erSprNav, g1erSprLoc, gListCod, gEtudAct, gTraduit
  16.   if not (the mouseDown) then
  17.     set MsCast to the mouseCast
  18.     if MsCast > -1 then
  19.       if not gEtaSpir then
  20.         set gSurvolAct to 0
  21.         repeat with monSpr = g1erSprChr to gMaxBoutons
  22.           if rollOver(monSpr) and (the castNum of sprite monSpr <> 0) and the visible of sprite monSpr then
  23.             set gSurvolAct to monSpr
  24.             exit repeat
  25.           end if
  26.         end repeat
  27.         if gSurvolAct <> gSurvolPrec then
  28.           if gSurvolAct <> 0 then
  29.             if (gSurvolAct >= g1erSprChr) and (gSurvolAct <= (g1erSprChr + 9)) then
  30.               gBarChron(survol, gSurvolAct, the number of cast "Zone info")
  31.             end if
  32.             if gSurvolAct = g1erSprNav then
  33.               renseigne(getAt(gTraduit, 12), "bold", 7)
  34.             end if
  35.             if gSurvolAct = (g1erSprNav + 1) then
  36.               renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 3), "bold", 7)
  37.             end if
  38.             if gSurvolAct = (g1erSprNav + 2) then
  39.               renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 5), "bold", 7)
  40.             end if
  41.             if gSurvolAct = (g1erSprNav + 3) then
  42.               renseigne(getAt(gTraduit, 26) && getAt(gTraduit, 4), "bold", 7)
  43.             end if
  44.             if gSurvolAct = (g1erSprNav + 4) then
  45.               renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 7), "bold", 7)
  46.             end if
  47.             if gSurvolAct = (g1erSprNav + 5) then
  48.               renseigne(getAt(gTraduit, 27), "bold", 1)
  49.             end if
  50.             if gEtudAct = "mon" then
  51.               set dernSuj to g1erSprLoc + 3
  52.               if gSurvolAct = (dernSuj + 1) then
  53.                 renseigne(getAt(gTraduit, 82), "bold", 1)
  54.               end if
  55.               if gSurvolAct = (dernSuj + 2) then
  56.                 renseigne(getAt(gTraduit, 83), "bold", 7)
  57.               end if
  58.             else
  59.               set dernSuj to g1erSprLoc + 6
  60.               if gSurvolAct = (dernSuj + 1) then
  61.                 renseigne(getAt(gTraduit, 84), "bold", 1)
  62.               end if
  63.             end if
  64.             if (gSurvolAct >= g1erSprLoc) and (gSurvolAct <= dernSuj) then
  65.               set moncod to word 1 of the name of cast the castNum of sprite gSurvolAct
  66.               set monNumSuj to getPos(gListCod, moncod)
  67.               set monSuj to getAt(gListSuj, monNumSuj)
  68.               set monNomSuj to monSuj(Le_Nom)
  69.               if word 1 of monNomSuj <> "Homo" then
  70.                 set monNomSuj to word 1 of monNomSuj
  71.               end if
  72.               set monEpok to monSuj(Le_Epoque)
  73.               gBarChron(fleche, 1, monEpok, 1)
  74.               if moncod = "HSN" then
  75.                 renseigne(monNomSuj, "bold,italic", 3)
  76.               else
  77.                 renseigne(monNomSuj, "bold,italic", 7)
  78.               end if
  79.             end if
  80.             if gSurvolAct = (g1erSprLoc + 9) then
  81.               set monNomSuj to gSujet0(Le_Nom)
  82.               if word 1 of monNomSuj <> "Homo" then
  83.                 set monNomSuj to word 1 of monNomSuj
  84.               end if
  85.               renseigne(monNomSuj, "bold,italic", 1)
  86.             end if
  87.           else
  88.             gBarChron(fleche, 0, 1, 1)
  89.             renseigne(gMessDef1, gMessSty1, -1)
  90.           end if
  91.         end if
  92.       else
  93.         if the number of words in the name of cast MsCast = 2 then
  94.           if (word 2 of the name of cast MsCast = "1") or (word 2 of the name of cast MsCast = "0") then
  95.             curseur(1)
  96.           else
  97.             curseur(-1)
  98.           end if
  99.         else
  100.           curseur(-1)
  101.         end if
  102.       end if
  103.       set gSurvolPrec to gSurvolAct
  104.       updateStage()
  105.     end if
  106.   end if
  107. end
  108.